Willa’s Portfolio
  • Home
  • About Me

On this page

  • The Data
  • Starting Table
  • Top 7 Most Banned Books

Banned Books

Analysis
R
Tables

An Analysis of the PEN America’s Index of School Book Bans from July 1, 2021 to June 30, 2022

The Data

Data Comes from PEN America’s Index of School Book Bans

Image From The State News

Starting Table

Show the code
books %>%
  mutate(Author = as.factor(Author), Title = as.factor(Title), `Type of Ban` = as.factor(`Type of Ban`), State = as.factor(State), District = as.factor(District), `Date of Challenge/Removal` = as.factor(`Date of Challenge/Removal`), `Origin of Challenge` = as.factor(`Origin of Challenge`)) %>%
  select(Author, Title, `Type of Ban`, State, `Date of Challenge/Removal`, `Origin of Challenge`) %>%
  datatable(filter= "top", options = list(pageLength = 5, autoWidth = TRUE), rownames=FALSE)

Top 7 Most Banned Books

Show the code
#Add links to purchase the books -> to authors homepage? 
topbooks %>%
  select(image = image_url, Title, Author, numTimesBanned) %>%
  ungroup() %>%
  gt()%>%
  gt_img_rows(columns = image,img_source="local", height = 150)%>%
  tab_header(title = "The Most Banned Books from July 2021 - June 2022") %>%
  cols_label(
    Title = "Book Title",
    image = "Book Cover",
    Author = "Author",
    numTimesBanned = "Total Number of Bans"
  )
The Most Banned Books from July 2021 - June 2022
Book Cover Book Title Author Total Number of Bans
Gender Queer: A Memoir Kobabe, Maia 41
All Boys Aren't Blue Johnson, George M. 29
Out of Darkness Pérez, Ashley Hope 23
The Bluest Eye Morrison, Toni 22
Lawn Boy Evison, Jonathan 17
The Hate U Give Thomas, Angie 17
The Absolutely True Diary of a Part-Time Indian Alexie, Sherman 16